Invenzioni & Inventori/Invenzioni and Inventori (Eclectica Publishing) (1996).ISO/invenzio/icoinv5.dir/00026_Script_26

Text File | 1983-02-08 | 647b | 17 lines

on at_hilite dacast,quanti,primocan
  if the mousecast >= dacast and the mousecast <=dacast + quanti-1 then
    set attore to the mousecast
    if attore >=dacast and attore <= dacast + quanti-1 then
      repeat with num = 1 to quanti
        set the castnum of sprite (primocan+num -1) to (dacast + num -1)
      end repeat
      set the castnum of sprite (attore-dacast +primocan) to (attore + quanti)
    end if
  end if
  if the mousecast < dacast or the mousecast >= (dacast + 2*quanti) then
    repeat with num = 1 to quanti
      set the castnum of sprite (primocan+num -1) to (dacast + num -1)
    end repeat
  end if
end